home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 17 / 017.d81 / bar graph (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  68 lines
  1. 10 DIM X(30), Y(30) : C% = 30 : R1 = 18 : R2 = 146
  2. 15 LB$ ="                              "
  3. 20 CL$ = "                                       "
  4. 25 POKE 53280, 3 : POKE 53281, 3
  5. 30 INPUT"[147]ENTER TITLE FOR X-AXIS";XT$
  6. 31 INPUT"ENTER TITLE FOR Y-AXIS";YT$
  7. 32 INPUT"ENTER TITLE FOR PLOT 1";T1$
  8. 33 INPUT"ENTER TITLE FOR PLOT 2";T2$
  9. 35 :
  10. 40 PRINT "[147]"
  11. 45 PRINT TAB(06) "" "" LB$ "  "
  12. 50 FOR L=1 TO 20 : PRINT TAB(06) "" "" " " "" LB$ "" " " : NEXT
  13. 55 PRINT TAB(6) "" "" "[178][195][195][195][195][178][195][195][195][195][178][195][195][195][195][178][195][195][195][195][178][195][195][195][195][178][195][195][195][195][178] "
  14. 60 PRINT TAB(6) "[145]" "" "[219]";
  15. 65 FOR I=1 TO 4 : PRINT "[157][145][194][157][145][194][157][145][194][157][145][194][157][145][179]"; : NEXT : PRINT "[146]";
  16. 70 INPUT"NUMBER OF SETS";NS:PRINT""LB$
  17. 72 INPUT"MAXIMUM X VALUE";XHI:PRINT""LB$
  18. 74 INPUT"MINIMUM X VALUE";XLO:PRINT""LB$
  19. 75 INPUT"X SCALAR (XF)";XF:PRINT""LB$
  20. 76 SX=(XHI-XLO)/30:XB=INT(XHI*XF):XS=INT(XLO*XF)
  21. 80 PRINT""CL$"";:INPUT"MAXIMUM Y VALUE";YHI:PRINT""LB$
  22. 82 INPUT"MINIMUM Y VALUE";YLO:PRINT""LB$
  23. 84 INPUT"Y SCALAR (YF)";YF:PRINT""LB$
  24. 85 SY=(YHI-YLO)/20 : YB=INT(YHI*YF) : YS=INT(YLO*YF)
  25. 90 PRINT "" TAB(5-LEN(STR$(YB))) YB : POKE 214,11 : PRINT
  26. 95 PRINT YT$ : POKE 214,21 : PRINT : PRINT TAB(5-LEN(STR$(YS))) YS
  27. 100 PRINTTAB(6-INT(LEN(STR$(XS))/2))XSTAB(35-INT((LEN(STR$(XB))-1)/2))XB
  28. 105 PRINT TAB(20) XT$;
  29. 115 PRINT "" CL$ "" "HOW MANY POINTS";
  30. 120 INPUT NP
  31. 125 PRINT "" CL$ ""; : INPUT "DATA FROM KEYBOARD OR DISK";AN$
  32. 130 PRINT "" CL$ ""; : IF AN$ = "K" THEN 155
  33. 135 INPUT "INSERT DISK; ENTER FILE NAME";FF$
  34. 140 OPEN 8,8,8,"0:"+FF$+",S,R"
  35. 145 FOR I = 1 TO NP : INPUT#8,X(I),Y(I) : NEXT
  36. 150 CLOSE 8 : GOTO 165
  37. 155 FOR I=1 TO NP : PRINT "ENTER X,Y OF PT#";I;
  38. 160 INPUT X(I), Y(I) : PRINT "" CL$ ""; : NEXT
  39. 165 FORI=1TONP:X(I)=(X(I)-XLO)/SX:Y(I)=(Y(I)-YLO)/SY:NEXT:PRINTCHR$(C%);
  40. 170 FOR I = 1 TO NP : POKE 214,21 : PRINT : POKE 211,05
  41. 175 IX = INT(X(I))
  42. 180 IY = INT(Y(I)): FY = Y(I) - IY
  43. 185 FOR J = 0 TO IX : PRINT ""; : NEXT
  44. 190 IF IY = 0 THEN PRINT "[145]"; : GOTO 200
  45. 195 FOR J=1 TO IY : PRINT "[145]" CHR$(R2) CHR$(32) "[157]"; : NEXT : PRINT "[145]";
  46. 200 IF FY < 0.06 THEN 245
  47. 205 IF FY < 0.18 THEN PRINT CHR$(R1) CHR$(164) : GOTO 245
  48. 210 IF FY < 0.31 THEN PRINT CHR$(R1) CHR$(175) : GOTO 245
  49. 215 IF FY < 0.43 THEN PRINT CHR$(R1) CHR$(185) : GOTO 245
  50. 220 IF FY < 0.56 THEN PRINT CHR$(R1) CHR$(162) : GOTO 245
  51. 225 IF FY < 0.68 THEN PRINT CHR$(R2) CHR$(184) : GOTO 245
  52. 230 IF FY < 0.81 THEN PRINT CHR$(R2) CHR$(183) : GOTO 245
  53. 235 IF FY < 0.93 THEN PRINT CHR$(R2) CHR$(163) : GOTO 245
  54. 240 IF FY < 0.99 THEN PRINT CHR$(R2) CHR$(32) : GOTO 245
  55. 245 PRINT CHR$(146) : NEXT
  56. 250 NS = NS - 1 : R1 = 146 : R2 = 18 : C% = 31
  57. 255 IF NS > 0 THEN 115
  58. 260 PRINT "" CL$ "" TAB(10) "" "" T1$ SPC(3) "" "[146]" T2$
  59. 265 GET N$ : IF N$ ="" THEN 265
  60. 270 :
  61. 300 PRINT"[147]WOULD YOU LIKE TO DO ANOTHER?"
  62. 310 POKE198,0:WAIT198,1:GETK$
  63. 320 IFK$<>"Y"ANDK$<>"N"THENPOKE53280,RND(1)*255:GOTO310
  64. 330 IFK$="Y"THENRUN
  65. 340 :
  66. 350 LOAD"PAYLOAD CONNECT",8
  67. 360 END
  68.